home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 101-125 / disk_108 / printpop / wbc.asm < prev   
Assembly Source File  |  1992-05-06  |  5KB  |  216 lines
  1. ; SPECIAL NOTE: This code module is a direct copy of the routine supplied
  2. ;               with PopCLI (Fred Fish #35) which is in turn a version of
  3. ;               the code published in the 1.1 Rom Kernel Manuals.
  4. ;
  5. ;               PopCLI is copyrighted to the Software Distillery
  6. ;
  7.     section    text,CODE
  8. *
  9. * C initial startup procedure under AmigaDOS
  10. * 
  11. * Requirements:
  12.  
  13.     INCLUDE    "exec/types.i"
  14.     INCLUDE "exec/alerts.i"
  15.     INCLUDE "exec/nodes.i"
  16.     INCLUDE "exec/lists.i"
  17.     INCLUDE "exec/ports.i"
  18.     INCLUDE "exec/libraries.i"
  19.     INCLUDE "exec/tasks.i"
  20.     INCLUDE "libraries/dos.i"
  21.     INCLUDE "libraries/dosextens.i"
  22.  
  23. ; some usefull macros:
  24. xlib    macro
  25.     xref    _LVO\1
  26.     endm
  27.  
  28. callsys    macro
  29.     CALLLIB    _LVO\1
  30.     endm
  31.     
  32.  
  33.     xdef    _XCEXIT            * exit(code) is standard way to leave C.
  34.     xdef    _HandlerInterface
  35.  
  36.     xref    _myhandler
  37.     xref    __main            * Name of C program to start with.
  38.     xref    _AbsExecBase
  39.     xref    _FindTask
  40.     xref    _DOSBase
  41.  
  42.     xlib    Alert
  43.     xlib    FindTask
  44.     xlib    Forbid
  45.     xlib    GetMsg
  46.     xlib    OpenLibrary
  47.     xlib    CloseLibrary
  48.     xlib    ReplyMsg
  49.     xlib    Wait
  50.     xlib    WaitPort
  51.     xlib    Open
  52.     xlib    Close
  53.     xlib    CurrentDir
  54.  
  55. start:
  56.     move.l    d0,dosCmdLen
  57.     move.l    a0,dosCmdBuf
  58.     move.l    a7,d0            ; save old stack ptr
  59.     movem.l    d1-d6/a0-a6,-(a7)
  60.     move.l    d0,a5
  61.     move.l    _AbsExecBase,a6
  62.     move.l    a6,_SysBase
  63.     move.l    a7,__StackPtr        * Save stack ptr
  64.  
  65. ;------ get the address of our task
  66.     suba.l    a1,a1
  67.     callsys    FindTask
  68.     move.l    d0,a4
  69.  
  70. ;------ are we running as a son of Workbench?
  71.     move.l    pr_CurrentDir(A4),_curdir
  72.     tst.l    pr_CLI(A4)
  73.     beq    exit2
  74.  
  75. ;=======================================================================
  76. ;====== CLI Startup Code ===============================================
  77. ;=======================================================================
  78.  
  79. fromCLI:
  80.     move.l    a5,D0        ; get top of stack
  81.     sub.l    4(a5),D0    ; compute bottom 
  82.     move.l    D0,__base    ; save for stack checking
  83. ;------    attempt to open DOS library:
  84.     lea    DOSName,A1
  85.     moveq.l    #0,D0
  86.     callsys OpenLibrary
  87.     move.l    D0,_DOSBase
  88.     beq    noDOS
  89.  
  90. ;------ find command name:
  91.     move.l    #start,a0
  92.     clr.l    -(sp)
  93.     jsr    _FindTask
  94.     addq.l    #4,sp
  95.     move.l    d0,a0
  96.     move.l    pr_CLI(a0),a0
  97.     add.l   a0,a0        ; bcpl pointer conversion
  98.     add.l   a0,a0
  99.     move.l    cli_CommandName(a0),a1
  100.     add.l   a1,a1        ; bcpl pointer conversion
  101.     add.l   a1,a1
  102.  
  103. ;------    collect parameters:
  104.     move.l    dosCmdLen,d0        ; get command line length
  105.     move.l    a1,__ProgramName
  106.     addq.l    #1,d0            ; allow for space after command    
  107.  
  108.     clr.w    -(A7)            ; set null terminator for command line
  109.     addq.l    #1,D0            ; force to even number of bytes
  110.     andi.w    #$fffe,D0        ;(round up)
  111.     sub.l    D0,A7            ; make room on stack for command line
  112.     subq.l    #2,D0
  113.     clr.w    0(A7,D0)
  114.  
  115. ;------ copy command line onto stack
  116.     move.l    dosCmdLen,d0        ; get command line length
  117.     move.l    dosCmdBuf,a0
  118.     move.l    d0,d2
  119.     subq.l    #1,d0
  120.  
  121. copy_line:
  122.     move.b    0(A0,D0.W),0(A7,D2.W)    ; copy command line to stack
  123.     subq.l    #1,d2
  124.     dbf    d0,copy_line
  125.     move.b    #' ',0(a7,d2.w)        ; add space between command and parms
  126.     subq.l    #1,d2
  127.  
  128.     move.l    A7,A1
  129.     move.l    A1,-(A7)        ; push command line address
  130.     jsr    __main                * call C entrypoint
  131.     moveq.l    #0,d0            ; set successful status
  132.     bra.l    exit2
  133.  
  134. _XCEXIT:
  135.     move.l    4(SP),d0    ; extract return code
  136. exit2:
  137.     move.l    d0,-(a7)
  138.     move.l    _SysBase,a6
  139.     move.l    _DOSBase,a1
  140.     callsys    CloseLibrary        ; close Dos library
  141.  
  142. ;------ this rts sends us back to DOS:
  143. exitToDOS:
  144.     MOVE.L    (A7)+,D0
  145.     movea.l  __StackPtr,SP        * restore stack ptr
  146.     movem.l    (a7)+,d1-d6/a0-a6
  147.     rts                * and exit
  148.  
  149. ;-----------------------------------------------------------------------
  150. noDOS:
  151.         ALERT    (AG_OpenLib!AO_DOSLib)
  152.         moveq.l    #100,d0
  153.         bra    exit2
  154.  
  155. *************************************************************************
  156. *   HandlerInterface()
  157. *
  158. *   This code is needed to convert the calling sequence performed by
  159. *   the input.task for the input stream management into something
  160. *   that a C program can understand.
  161. *
  162. *   This routine expects a pointer to an InputEvent in A0, a pointer
  163. *   to a data area in A1.  These values are transferred to the stack
  164. *   in the order that a C program would need to find them.  Since the
  165. *   actual handler is written in C, this works out fine. 
  166. *
  167. *   Author: Rob Peck, 12/1/85
  168. *
  169.  
  170. _HandlerInterface:
  171.     movem.L    A0/A1,-(A7)
  172.     jsr    _myhandler
  173.     addq.L    #8,A7
  174.     rts
  175.  
  176.     section    data,DATA
  177. ;
  178.     XDEF    _NULL,_SysBase,_LoadAddress,_console_dev,_WBenchMsg
  179.     XDEF    _curdir,__mbase,__mnext,__msize,__tsize
  180.     XDEF    __oserr,__OSERR,__FPERR,__SIGFPE,__ONERR,__ONEXIT,__ONBREAK
  181.     XDEF    __SIGINT
  182.     XDEF    _errno,_stdin,_stdout,_stderr
  183.     XDEF    __ProgramName,__StackPtr,__base
  184. ;
  185. _errno        dc.l    0
  186. _stdin        dc.l    0
  187. _stdout        dc.l    0
  188. _stderr        dc.l    0
  189. _NULL        dc.l    0        ;
  190. __base        dc.l    0        ; base of stack
  191. __mbase        dc.l    0        ; base of memory pool
  192. __mnext        dc.l    0        ; next available memory location
  193. __msize        dc.l    0        ; size of memory pool
  194. __tsize        dc.l    0        ; total size?
  195. __oserr        equ    *
  196. __OSERR        dc.l    0
  197. __FPERR        dc.l    0
  198. __SIGFPE    dc.l    0
  199. __SIGINT    dc.l    0
  200. __ONERR        dc.l    0
  201. __ONEXIT    dc.l    0
  202. __ONBREAK    dc.l    0
  203. _curdir        dc.l    0
  204. _console_dev    dc.l    0
  205. _SysBase    dc.l    0
  206. _LoadAddress    dc.l    0            ; program load address
  207. _WBenchMsg    dc.l    0
  208. __StackPtr    dc.l    0
  209. dosCmdLen    dc.l    0
  210. dosCmdBuf    dc.l    0
  211. stdin        dc.l    0
  212. __ProgramName    dc.l    0
  213. DOSName     DOSNAME
  214.  
  215.     END
  216.